
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarBrand
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	1/4/2549 9:46:45	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvCarBrand
#Region "Internal member variables"
    Private _BrandId As Int32
    Private _BrandName As String
    Private _BrandStatus As Int32
#End Region

    Public Sub New()
        _BrandId = Nothing
        _BrandName = Nothing
        _BrandStatus = Nothing
    End Sub

    Public Sub New(ByVal BrandId As Int32, _
       ByVal BrandName As String, _
       ByVal BrandStatus As Int32)
        _BrandId = BrandId
        _BrandName = BrandName
        _BrandStatus = BrandStatus
    End Sub

#Region "Property"

    Public Property BrandId() As Int32
        Get
            Return _BrandId
        End Get
        Set(ByVal value As Int32)
            _BrandId = value
        End Set
    End Property


    Public Property BrandName() As String
        Get
            Return _BrandName
        End Get
        Set(ByVal value As String)
            _BrandName = value
        End Set
    End Property


    Public Property BrandStatus() As Int32
        Get
            Return _BrandStatus
        End Get
        Set(ByVal value As Int32)
            _BrandStatus = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarBrands
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	1/4/2549 9:46:45	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvCarBrands
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvCarBrand
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvCarBrand)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvCarBrand)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvCarBrand)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
